home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / Serial Port Toolkit v.2.5 / Serial Port XCMD Docs / card_2947.txt < prev    next >
Encoding:
Text File  |  1988-05-10  |  6.3 KB  |  310 lines
  1. -- card: 2947 from stack: in
  2. -- bmap block id: 8833
  3. -- flags: 0000
  4. -- background id: 2705
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2007
  11. -- rect: left=249 top=27 right=281 bottom=423
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: index
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get item 2 of the clickLoc
  23.   subtract item 2 of the rect of the target from it
  24.   add the scroll of the target to it
  25.   subtract 5 from it -- Correct for wide margins
  26.   divide it by the textHeight of the target
  27.   get trunc(it)+1
  28.   get line it of value(the target)
  29.   if it is not empty then
  30.     push card
  31.     set lockScreen to true
  32.     go to next card
  33.     find it in field "command"
  34.     if it is not in field "command" then pop card
  35.     else
  36.       get the id of this card
  37.       pop card
  38.       push card
  39.       set lockScreen to false
  40.       visual effect zoom open
  41.       go to it
  42.     end if
  43.   end if
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 2 (button)
  49. -- low flags: 00
  50. -- high flags: A003
  51. -- rect: left=290 top=285 right=307 bottom=399
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Update Index
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   put empty into card field "index"
  63.   repeat with i = 2 to the number of cards
  64.     get word 1 of field "command" of card i
  65.     if "(" is in it then delete char offset("(",it) to length(it) of it
  66.     put it & return after card field "index"
  67.   end repeat
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 3 (button)
  73. -- low flags: 00
  74. -- high flags: A003
  75. -- rect: left=274 top=315 right=337 bottom=416
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Sort Cards by Name
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   sort by field "command"
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 4 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=19 top=289 right=323 bottom=55
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 32670 / 32670
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   show all cards
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 5 (field)
  111. -- low flags: 01
  112. -- high flags: 0000
  113. -- rect: left=35 top=104 right=172 bottom=183
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 2
  118. -- text size: 12
  119. -- style flags: 256
  120. -- line height: 16
  121. -- part name: 
  122.  
  123.  
  124. -- part 6 (field)
  125. -- low flags: 01
  126. -- high flags: 0000
  127. -- rect: left=42 top=185 right=218 bottom=179
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 2
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: 
  136.  
  137.  
  138. -- part 7 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=19 top=253 right=287 bottom=55
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 902 / 902
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: 
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   visual effect wipe right
  153.   go to previous card
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 8 (button)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=58 top=253 right=287 bottom=94
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 26425 / 26425
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: 
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   visual effect wipe left
  173.   go to next card
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 10 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=57 top=289 right=323 bottom=93
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 29114 / 29114
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: 
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   visual effect zoom close
  193.   pop card
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 11 (button)
  199. -- low flags: 00
  200. -- high flags: 0001
  201. -- rect: left=42 top=180 right=217 bottom=190
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 8538 / 8538
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: 
  210. ----- HyperTalk script -----
  211. on mouseDown
  212.   hide the target
  213.   wait until the mouse is up
  214.   wait 1 seconds
  215.   show the target
  216. end mouseDown
  217.  
  218.  
  219.  
  220. -- part 12 (button)
  221. -- low flags: 00
  222. -- high flags: A003
  223. -- rect: left=22 top=36 right=58 bottom=131
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Click me first
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   show card field "release notes"
  235.   show button "Okay"
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 13 (field)
  241. -- low flags: 81
  242. -- high flags: 2004
  243. -- rect: left=54 top=50 right=285 bottom=487
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: release notes
  252.  
  253.  
  254. -- part 14 (button)
  255. -- low flags: 80
  256. -- high flags: A003
  257. -- rect: left=395 top=250 right=272 bottom=463
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: Okay
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   hide button "Okay"
  269.   hide card field "release notes"
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part contents for card part 5
  275. ----- text -----
  276. HyperCard
  277. Serial Port Toolkit Documentation
  278.  
  279. -- part contents for card part 6
  280. ----- text -----
  281. by
  282. Harry Chesley
  283.  
  284. -- part contents for card part 13
  285. ----- text -----
  286. 2.5b1 Release Notes:
  287.  
  288. Welcome to the HyperCard Serial Port Toolkit.
  289.  
  290. The best place to start is by clicking on the SPOverview line in the command/topic list on the right side of the screen.
  291.  
  292. Remember to declare the globals described in SPOverview. Otherwise things won't work properly.
  293.  
  294. -- part contents for card part 1
  295. ----- text -----
  296. breakSPort
  297. charsAvailable
  298. closeSPort
  299. configureSPort
  300. killSPort
  301. recvChars
  302. recvUpTo
  303. sendSPort
  304. sendSPortDone
  305. setSPortBufferSize
  306. SPortBufferSize
  307. SPortConfiguration
  308. SPortVersion
  309. SPOverview
  310.